home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / AMOSList-0198 / AMOSLIST / 000169_amos-request@svcs1.digex.net_Sat Jan 31 05:30:57 1998.msg < prev    next >
Text File  |  1998-06-24  |  4KB  |  99 lines
  1. >From amos-request@svcs1.digex.net  Sat Jan 31 05:30:56 1998
  2. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  3.     by pony-2.mail.digex.net (8.8.8/8.8.8) with ESMTP id FAA28147
  4.     for <mcox@access.digex.net>; Sat, 31 Jan 1998 05:30:56 -0500 (EST)
  5. Received: (from daemon@localhost)
  6.     by svcs1.digex.net (8.8.5/8.8.5) id EAA13061
  7.     for amos-out; Sat, 31 Jan 1998 04:32:45 -0500 (EST)
  8. Received: from pony-2.mail.digex.net (pony-2.mail.digex.net [204.91.241.6])
  9.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id EAA13058
  10.     for <amos-list@svcs1.digex.net>; Sat, 31 Jan 1998 04:32:45 -0500 (EST)
  11. Received: from mago.agonet.it (mago.agonet.it [195.32.124.10])
  12.     by pony-2.mail.digex.net (8.8.8/8.8.8) with ESMTP id EAA17402
  13.     for <amos-list@access.digex.net>; Sat, 31 Jan 1998 04:32:43 -0500 (EST)
  14. Received: from agonet.it (ghizzo@p126069.agonet.it [195.32.126.69])
  15.     by mago.agonet.it (8.8.5/8.8.5) with SMTP id KAA16142
  16.     for <amos-list@access.digex.net>; Sat, 31 Jan 1998 10:28:23 +0100
  17. From: Pietro Ghizzoni <ghizzo@agonet.it>
  18. Reply-To: ghizzo@agonet.it
  19. To: Amos-List <amos-list@access.digex.net>
  20. Date: Sat, 31 Jan 1998 10:29:05 +0100
  21. Message-ID: <yam7335.297.1759673456@mail.agonet.it>
  22. In-Reply-To: <yam7333.1170.1748437504@post8.tele.dk>
  23. X-Mailer: YAM 1.3.5 - Amiga Mailer by Marcel Beck
  24. Organization: Dairymen Soft
  25. Subject: Re: Looooooooong Samples
  26. MIME-Version: 1.0
  27. Content-Type: text/plain; charset=iso-8859-1
  28. Content-Transfer-Encoding: 8bit
  29. X-MIME-Autoconverted: from quoted-printable to 8bit by svcs1.digex.net id EAA13059
  30. Status: O
  31. X-Status: 
  32.  
  33. On 29-Gen-98, Jens Vang Petersen wrote: Looooooooong Samples
  34.  
  35. >Hello..
  36.  
  37. Hi!
  38.  
  39. >A request to all of you excelent sound-extension-people. Can any of you
  40. >write a sample-replayer into your extension (or even a simple AMOS-
  41. >procedure) that can handle long raw samples (+100.000 bytes) the only
  42. >way I can find to replay those bloddy things is to call an external 
  43. >player like Play16.. Gah...
  44.  
  45.  
  46. You can try this one.... it's a double buffered replayer wich use the GUI
  47. Extension asynchronous commands for play&load datas at the same time :)
  48.  
  49. '**
  50. '**      $VER: SamPLay 1.0 (31-01-98)    
  51. '**
  52. '**      Asynchronous-Double buffered sample replayer   
  53. '**
  54. '**      ï¿½ Copyright 1998 Pietro Ghizzoni - Dairymen Soft
  55. '**        FreeWare      
  56. '**
  57.  
  58.  
  59. Reserve As Chip Work 10,10000
  60. Reserve As Chip Work 11,10000
  61. F$=Fsel$("**") : Open In 1,F$ : L=Lof(1) : Close 
  62.  
  63. H=Tcp F Open(1,F$)
  64. D=Tcp Get(1,Start(10),10000) : D=Tcp Get(1,Start(11),10000)
  65. Sam Raw %1111,Start(10),10000,10000 : C=20000 : BUF=10 : BUF2=11
  66.  
  67. Do 
  68.    
  69.    Repeat : Until Sam Swapped(1)
  70.    If C>L Then Goto QUIT
  71.    
  72.    Sam Swap %1111 To Start(BUF2),10000 : A=Tcp Read(1,Start(BUF),10000)
  73.    C=C+10000 : Swap BUF,BUF2
  74.    
  75. Loop 
  76.  
  77. QUIT:
  78.  
  79. Tcp Close : End 
  80.  
  81.  
  82. -- 
  83.  
  84.  
  85. Bye!
  86.  
  87.  
  88.                                      !!!
  89.                                      o o
  90.    +-----------------------------oOO-(_)-OOo----------------------------+
  91.    |                                                                    |
  92.    |  Pietro Ghizzoni - Dairymen Soft              __  /// Amiga 12OO   |
  93.    |     E-Mail:  ghizzo@agonet.it                 \\\/// 'O3O  5OMhz   |
  94.    |            Team AMIGA                          \/// 18MB - CD4x    |
  95.    |                                                                    |
  96.    | Amos Professional Team Coordinator               AMIGA RULEZ!!     |
  97.    |                                                                    |
  98.    +--------------------------------------------------------------------+
  99.